Untitled

Row

Chart A

p <- ggplot()+
  geom_point(aes(x=1:10,y=(1:10)^2))+
  theme_bw()+
  labs(x='X',y='Y')

ggplotly(p)

Row

Chart B

Chart C